
Imports cmplib01

Public Class frmFastEditor

    Private _game As CampaignerGameData

    Public Sub New(ByRef game As CampaignerGameData)
        InitializeComponent()
        _game = game
    End Sub

    Public Shadows Sub ShowDialog()
        '// first, we list all the types we want.

        For Each un As UnitType In _game.UnitTypes
            lstItems.Items.Add(un)
        Next

        MyBase.ShowDialog()

    End Sub

    Private Sub lstItems_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstItems.SelectedIndexChanged
        pgrItem.SelectedObject = lstItems.SelectedItem

    End Sub
End Class